Tcl Source Code

Check-in [53e5096b31]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Modify fix for [0439e1e1a3], no conversion to list any more. Reported by AKU.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk | main
Files: files | file ages | folders
SHA3-256: 53e5096b315bd0948f1da3f83b6507102cbbbc070fdaaf224abe50de83cc0510
User & Date: jan.nijtmans 2024-09-25 07:38:41.121
References
2024-10-07
20:12
Merge [53e5096b315bd094]: Modify fix for [0439e1e1a3], no conversion to list any more. Reported by A... check-in: 64845eec91 user: pooryorick tags: unchained, INCOMPATIBLE_LICENSE
Context
2024-10-07
20:12
Merge [53e5096b315bd094]: Modify fix for [0439e1e1a3], no conversion to list any more. Reported by A... check-in: 64845eec91 user: pooryorick tags: unchained, INCOMPATIBLE_LICENSE
2024-09-25
10:50
purged mentions of Tcl 8.7 in man pages (apart from usage in .VS and .VE macros which will not lead ... check-in: 7891a2e4b2 user: Torsten tags: trunk, main
08:34
Rebase to 9.0 check-in: 09370a59d0 user: jan.nijtmans tags: bug-0439e1e1a3
07:38
Modify fix for [0439e1e1a3], no conversion to list any more. Reported by AKU. check-in: 53e5096b31 user: jan.nijtmans tags: trunk, main
2024-09-24
21:46
Merge 9.0. Use TclMaxListLength() to determine error-message in stead of converting to a list check-in: 1870ed5dd9 user: jan.nijtmans tags: bug-0439e1e1a3
2024-09-22
16:22
Fix [e38dce74e2]: Command line built with list not properly quoted check-in: 8627aad9bd user: jan.nijtmans tags: trunk, main
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/tclObj.c.
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
	    goto listRep;
	}
    } while (TCL_OK ==
	    TclParseNumber(interp, objPtr, "number", NULL, -1, NULL, 0));
    /* Don't try to convert index or boolean's to a list */
    if (!TclHasInternalRep(objPtr, &tclIndexType)
	    && !TclHasInternalRep(objPtr, &tclBooleanType)
	    && (TCL_OK == Tcl_ListObjLength(NULL, objPtr, &length)) && (length > 1)) {
	goto listRep;
    }
    return TCL_ERROR;
}

int
Tcl_GetNumber(







|







3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
	    goto listRep;
	}
    } while (TCL_OK ==
	    TclParseNumber(interp, objPtr, "number", NULL, -1, NULL, 0));
    /* Don't try to convert index or boolean's to a list */
    if (!TclHasInternalRep(objPtr, &tclIndexType)
	    && !TclHasInternalRep(objPtr, &tclBooleanType)
	    && (TclMaxListLength(TclGetString(objPtr), TCL_INDEX_NONE, NULL) > 1)) {
	goto listRep;
    }
    return TCL_ERROR;
}

int
Tcl_GetNumber(